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ABSTRACT 
Pinar a gicaree bis CONS 15 9 OF OF THREE PARTS suo ocx 
bet PTD ie ot a 
Tee, seQuence OF SECTOR aro VERIELE site eB BY i: 


REQUIREMENTS 


EQUIPMENT a 
ANDARD POP-11 CONFIGURATION . 


Ret CONTROLLER ORIVES 


STORAGE 
PROGRAM REQUIRES 4K OF STORAGE 


PRELIMINARY PROGRAMS 


BoRPr RPI RELIABILITY OLAGNOSTIC 


LOADING PROCEDURE 
USE STANDARD PROCEDURE FOR ABS TYPES. 


STARTING PROCEDURE 


CONTROL SWITCH SETTING 
SEE SECTION 5.1.1 
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STARTING ADDRESS 
THE PROGRAM MAY BE STARTED AT ONE OF FOUR LOCATIONS 
1 Sg RS AE MEMES UE 
BEEN WRITTEN CORRECTL 
2 SIS APSE Ratt tien 
REWRITTEN AND VERIF? 
3. BIORTING ee ae ter ett cree ns 


ADDRESS 
Sas eh RE a AFTER 


PROGRAM AND/OR OPERATOR ACTION 
1. LOAD THE PROGRAM INTO MEMORY USING THE ABS 
LOADER. 


LOAD DESIRED STARTING ADDRESS 
SET SWITCHES (SEE SEC S.1.1) 
PRESS START 


WHEN THE PROGRAM IS COMPLETE, IT WILL 
RECYCLE. 


rrr 


OPERATING PROCEDURE 


OPERATIONAL SWITCH SETTINGS 
ALS as STARTING ADDRESS SELECT THE DESIRED 
ITCHES. 
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§.1.1 


SWITCH SETTINGS ARE: 
(15>2] RROR T 
Ca) 177 :BELETE. PRINTOUTS. 
SUBROUTINE ABSTRACTS 


TRAPCATCHER 


Garih ey “Oheyeeeteg Tauber TH AN UNEXPECTED 


TRAPS OR INTERRUPTS WILL HALT AT THE VECTOR 


ERROR HANDLER 


THs ROUTINE IS ROORESE, POP=I1" St STATS, 


INFORMATION 15.7 
HALT ON ERROR su tihes ARE ree 


ERRORS 


ERROR PRINTOUTS | 
#1 ERROR MESSAGE FORMAT: 
te AT ADDRESS XXXX_ PS= PROCESSOR STATUS 
a MMCONTENTS OF AT YYY 
St STi & es 
= CONTENTS OF RPER 
= CONTENTS OF RPDS 


XXXX = THE ROORESS WHERE THE ERROR WAS 
= IF THE ROR <lihs ae ENCOUNTERED IN A 

SIBROUTINE THIS BACK TO THE 

MAINLINE CODE WHICH rere te EfBRONT INE. 


#2 ERROR AT ADDRESS XXXX PS= PROCESSOR STATUS 
CALLED FROM SUBROUTINE AT YYY 
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3.1 





GOl 


CYLINDER TRACK SECTOR 
ene = 


wae, > G00 1 Oe ol pe | "Sot 


CONTENTS OF THE HERDER 
ACTUALLY FOUND IN HEADE 


RESTRICTIONS 
"NONE 


. MISCELLANEOUS 


EXECUTION Time 
AFTER PERFORMING THE SELECTED TASK, THE PROGRAM WILL 
RECYCLE... 


STACK POINTER 
THE STACK IS INITIALLY SET TO 600. 


PROGRAM DISCRIPTION 


STANDARD FORMATTER 
ONCE STARTED THE PROGRAM TYPES: 
UNIT 
AND WAITS FOR INPUT. RESPOND WITH THE RELEVENT 
OCTAL NUMBER (0-7) AND TERMINATE WITH A CARRIAGE 
RETURN. 
THE TTY THEN PRINTS: 
SET THE FORMAT ENABLE SWITCH. 
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WRITE atte: SWITCH. 
UNIT WRITE ENABLE SWITCH. 
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t 
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9.2 


STRIKE ANY TELETYPE KEY WHEN READY. 


STRIKING ANY KEY CAUSES THE FORMATTING OPERATION TO 
BEGIN. , WHEN THE DISK HAS BEEN FORMATTED, THE TTY 


RESET THE FORMAT ENABLE SWITCH TO NORMAL . 
STRIKE ANY TELETYPE KEY WHEN READY. 


STRIKING ANY KEY CAUSE THE PROGRAM TO ENT R_ A 
READ/COMPARE HEADER SEQUENCE. WHEN COMPLETE THE 
PROGRAM WILL RECYCLE. 


SINGLE HEADER FORMATTER 


ONCE STARTED, THE PROGRAM QUERIES FOR THE UNIT 
NUMBER AS IN’9.1. THE PROGRAM THEN PRINTS: 


CYLINDER TRACK SECTOR 
OLD: 


AND WAITS FOR INPUT. 
THE PHYSICAL CYLINDER, TRACK, BND SECTOR OF THE 
RED ADDRESS: TERMINATE THE FIRST TWO WITH A 
— AND THE LAST WITH A CARRIAGE RETURN. 
ME PROGRAM THEN TYPES: ‘4 


NEW. 
AND WAITS FOR INPUT. THE THE DESIRED ADDRESS IN THE 
SANE SEQUENCE AS “ABOVE. THE PROGRAM WILL FIRST 


REWRITE AND THEN READ T D 0 
Ay VALIDITY. WHEN FINISHED THE PROGRAM WILL 


SPECIAL FORMATTER 


ONCE STARTED, THE PROGRAM QUERIES FOR THE UNIT 
NUMBER AS IN’9.1. THE PROGRAM THEN PRINTS: 


INPUT THE SECTOR NUMBERS (0-9) IN THE DESIRED ORDER. 
0: 
RESPOND WITH THE FIRST DESIRED SECTOR NUMBER. 


THE 
OTHER NINE NUMBERS ARE REQUESTED AND SPECIFIED IN 
LIKE MANNER. ONCE A Sores NUMBER HAS BEEN USED IT 


Lt) 
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348 
349 PAGE 8 
a 
353 AFTER THE LAST PARAMETER HAS BEEN PROCESSED, THE 
354 PROGRAM WRITE THE PACK 10 THE DESIRED FORMAT AND 
355 THEN ENTERS A READ/COMPARE HEADER SEQUENCE TO ENSURE 


356 THE VALIDITY OF ALL ADDRESSES. WHEN THE PROGRAM IS 
357 FINISHED IT WILL RECYCLE. 
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Bau 197g) DYGITAL EQUIPMENT CORP., MAYNARD, MASS. 
JANUARY 29, 1 


SP=%6 ;STACK POINTER 


ERM=TRAP 
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START!: 


IL]: 
URDY1: 





. 2600 
MOV 
MOV 
RESET 
3h 


J 
FNTM 
JSR 





aSTARTL,SP 
#P7,CC 


PC, UNIO 
SWMES 
PC, RIN 


ik ibeKou OTHER DEVICES 
;CLEAR THE WORLD 
:GET UNITS 





;WAIT FOR KEYBOARD RESPONSE 
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NS2: 


IL3: 


RPI: 


RPIX: 


006454 PIOKI: 





JSR PC. HO 
MO oP 


, 

i , BRPCS 
nOVE te Pe 
NOV #6000 Toc 
CMP R4, IRPOA 
pe T 
PRR ADS*CESERSDA 
IMP 


ERR+ ER+CS+DS 
ts RS,RESTOS 


my @NS2,-(SP) 
BIT #87, 3RPCS 
BNE +6’ 
ERR#CS#ER+CS 

RPTX 
ep RS,RESTOS 


ey eSTART2,-(SP) 





sue 
be 
4 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
: 
’ 











e TEE 


sae (FORMAT) WITH PI ON 


Y 

1 C. TIMED OUT? 
HECKING 

R SS NOT CHANGING IN TIME 

PI HANDLER - SAVE RO-5 


; YES 
;EXTRANEOUS PI DURING FORMAT PASS 
: TRY AGAIN 

RESTORE RO-S 

;POP O10 PC 

;PUSH A NEW PC 

EXIT TO Pass 2 
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S27 
es 001200 21200 

001200 012767 000340 176570 START2: MOV #P7,PS sLOCKOUT PI’S 
aT Bb 1206 PNTM NSWIES 

001216 oO4767 003420 ISR PC, RIN sWAIT FOR OPERATOR 
533 OOlese 012777 OO000l OO6216 P2LI: MOV #1. dRPCS RESET RPLI 
534 001030 116777 O0614e Odbel2 MOVB uNtT aRPCS1 LOAD UNIT 2 
ce Ries fee ie ge 

1 ? 1 CLR cyl sCYL=0 
537 001246 O16 006130 O06202 PeL2: MOV CYL, ORPCA START AT 
538 001254 Oobe0e CLR aRPDA :SAR & TAR = O 
539 1e60 ll 11 006160 -MOVB #11, aRPCS : SEEK 
540 001 036777 006106 O06142 BIT ATNB, ARPDS WAIT FOR 
a aoe? 001774 BEO - SATIN. 
42 OC 1 006134 CLRB s CLEAR ATTN 
543 091 306 004000 006126 BIT #811, 0RPOS : DONE? 
S44 0013) ae BEQ + YES , 
S45 001312 104074 ERR+ER+CS+DS+DA *NO- SEEK INCOMPLETE ON PASS2 SEEK 
546 001314 ; BR Pei TRY AGAIN 
547 001316 Ol 176650 006126 MOV #-600.,aRPWC  :READ ONE CYLINDER OF HEADERS INTO 
eve 001368 ble772 007722 Oob ee HOV a INGLE , BR BUFFER ee 
Be DOLSNG fise77 phooeS BOS Ars {READ HEADERS 

. §51 001246 032777 100200 O0ed72 BIT #815+87,dRPCS ERROR OR DONE 

S52 001354 001774 7 rr NOT YET 
553 001356 100002 BPL P2N1 : 
554 001360 194074 ERR+ER+DS+CS+DA :ERROR ON READ HEADER OP. 
B55 001362 60073: BR Pole RECYCLE 
557 
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177074 


000023 


000312 


STARTS: 





ore UL Sa AN 


SEC 
#INBUF RY OINTER 19 DATA RE 
PC, CHKAD CHECK pata 
NO LOOPING 
SEC ADVANCE SEC# 
SEC, #9. ;OVEL 0? 
+6 :YES 
Pel !NO- CHECK NEXT ADDRESS 
HED SADVANCE HEADS 
HED, #19. sOVELO? 
Fet3 !NO- CHECK NEXT ADDRESS 
CYL ADVANCE CYL# 
CYL, #202. DONE ALL? 
STARTS ry 
eL2 *NO- READ ANOTHER BLOCK 
sA HALT CAN GO HERE 


;REPEAT 








FOe 


.MAIN. piACyLl 271732) 09-SEP-76 13:31 PAGE 19 


22000 
HSTRT: nov aByhRa SP per ae POINTER 


ie SE iit THE WORLD 


HLI: oun 
oss gnsocs 
; RROR RECYCLE 


at 


TSR 


wo 


ae 
zs 
BR, 


R 
ey 


oS 3 


T 


- = 
efe 


? 
+ 
ee FO 


SO OOO OOOOOok 
= 7 > = delet 


WONMUN£ WO 
as 


MmOrOrS 


Pee PARAHETER 
ica varie 
nISeEST TRAC M2 
Bae ‘Recrae 


’ 3 


OZRPHA. 
. 
: 
: 
eae WORK1, CYLA 
: 
: 
bos 
g 
609 


£23 


-—— 


b= = b-- bb 0 & = & b= & = B= b= b= be 0 
° 
a) 


VIREM SSUES eRe 
eege 2 
Seaieee Be 
2 
oh & 


os 
RY 
5 
as 


sBavE VPARENET 
sERROR RECYCLE 
SHI t SECTOR 
SAVE VALUE 


PNMOOONOrrodc 
0-* 0 0 
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PEE tose OS HEISE ro 
1 ppecoy Nove. | ‘LOAD 
70 ROL INBUF : AND 


¥ 
sAND CYLINDER 
WORDS 
s INTO POST TION 
*MASK JUNK: 


-~ 
£o 
zen 
“IN 


e 
o 
NNN 


132@ 005453 


ae 


as 


wee 
S3S5SSu5 


BR 


Dw 
z 
S2SPr 


"AND SECTOR TO BE CHANGED 
;REWRITE IT 

ERROR OR DONE? 
sNOT YE 


; DONE 

; WRIT R OP - 
SRY AGAIN ITE HEADER OP 
; DESTROY 


a oo 
RRR 


ss 


: 


as 


: 
: 
5 
B35 
eae 
: 
5 
23 


- 


~-O00 
b= eS be 


BRR 


AODRESS 
OAS MODE HEADER OP 


Ss ; 

#815+87,aRPCS  ;ERROR OR DONE? 

-76 sNOT YE 
BPL HGO2 * DONE : 
ERR+ER+DS+CS+DA : ON READING NEW HEADER 
BR HGL2 ; TRY IN 

#INBUF RY *RYSDATA POINTER 

PC, CHKAD *CHECK REWRITTEN HEADER 

HGLe2 ERROR = TRY AGAIN 

A HALT CAN GO HERE 
HSTRT : REPEAT 


ae 


eueaes 





HO2 
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667 
003000 .=3000 
Co eae a SM Rt 
003012 000005 RESET > CLEAR 
4 004767 001002 pon UNIQ ;GET UNIT# 
SFSLI: TM 


22 


a ae 
: INTER TO MESence POINTERS 





(R5)+, RO sFETCH POINTER 


a4 i 
8 
S835 
Bats 
we 


bes 
e35 
673 
tre 
i: 
3 1 
< Ans + = t 
63 ISR PC, TYPOUT “FOR MES 
eg? SO S0e0 ? JSR PC’SIN >GET PRRANETER 
aa tk 
bee 1367 BNE sete NOT YET 
686 O04 ? ams SF3L3: ISR PC MKBUE : RATE A TABLE OF SSES 
PBs 10¢ haeees 111 JSR BO HOME :SELECTED UNIT 
Pea BOStTE BrEDS? BONSEG 0043g2 SFSLY: spe cyt aRPCA Pia = eae 
691 Saat 005077 $0 CLR aRPOA *DISK ADDRESS 
692 003130 7 000534 JSR PC : 
693 0031 BR SF ERROR RETURN 
694 003136 O1 175650 004306 MOV #-600.,dRPWC OC; RETURN 
bg 003184 12777 eee 004302 HOY souTeLF JRPBA ;HCECA oad 
697 ist 095055 5: oosoo3 Boeed MOVB £3 set *WRI om 
699 003166 l 252 BIT #815+87,aRPCS :E OR DONE 
566 boaize ioddde BP; FEN ROME 
701 104074 ERR+ER+D5+CS+DA “ERROR ON WRITE HEADER OP 
oe To5¢? 177470 COMISO SFSNI: ROV SEDO..7 a 
Fou Bosse OLs7es fiseey ‘ HOV SouTBURSe- RS 
003216 062715 000100 SFSLS: 80D #100, (RS) SADVANCE CYLINDER ADDRESS 
003222 #6, RS : INDEX 
Basse ae ANE ob me 
oS 003234 5 004142 PRE ae ADVANCE CYLINDER 
710 003240 026727 OO4136 000312 CMP CYL, #202. * DONE ? 
711 00324 101001 BHI SF CHK - YES 
zie 03650 BR SFSLY : 
ee a gy ee tena Lg RE a 
715 wine se 767 ited JSR be HOME *HOME SEEK 
716 003272 7 004104 CLR cyl *CYL 
717 003676 O16 alte oo41S2 SFCLI: HOV CYL, ARPCA sTeR=O 
719 Beast Boa7e9 4 GR r SEKE : SEEK 
003314 00075 BR SF CHK “ERROR RETURN 
721 003316 Ole 176650 126 MOV #-600.,aRPWC WiC 
903324 012777 007722 OO4lee2 MOV #INBUF;ORPBA CA 


~ 
a 
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SFCNI: 


SFCLe2: 


CLRS: 


CLRS1: 


SIN: 


SINI: 
MKBUF : 


MKBL1: 


BIS #14000, IRPCS 
5 
eye FUG) aRPCS  sERROR 
BEQ .-6 : 
ERRVERSDEecetOA 
BR SECLI 
hoy 10, mil 
CLR 
NOV enneu NOUF Re 
JSR  —- PC, CHKAD » 
NOP 
INC TOG1 
Ov ssratr 
MOV 8-1 tbe 
SOE, #19 
gos BNE 
CLR HED 
ime Cyt 
YL, #202. 
BLOS Cli 
NOP 
IMP SFSTRT 
NOV ascot RY 
CLRB eacys . 
INC RS 
BNE CLRS1 
Rap PE, RIN 
JSR PC’ TTO 
SUB #260, RO 
CMP RO, #9. 
BHI SIA 
TST RO 
BMI -° SINI 
TSTB ScFLG(RO) 
BNE INI 
COMB  SCFLG(RO) 
MOV Bg. (83}* 
ADD #2) (SP) 
RTS PC 
MOV #-20., TOG1 
MOV #OUTBUF RS 
HOV Su Ry 
V.  #-10.,t0Ge2 
CLR . 
CLR (RS)+ 
MOV. K, (RS)+ 
MOV (R4)4, (RS)+ 
INC T0G2 


: WORDS=SECTOR 
DONE 107 


310715 AED OP 


Te Latte 
2 le LIST AND 


TOP 


i bat 






3A LIST OF 
;LOGICAL SECTOR 


LEGAL 
i THIS NUMBER BEEN USED? 
jERROR = THIS NUMBER ALREADY USED 







XIT 
bRESPOINTER 10 BUFFE 


R 
sRNEPOLNTER, "Rope SECTOR LIST 


SHORKS=CYL +HEAD ie 


eee 


J0e2 
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003640 003764 Nov wSCSLT RG ; YES : UPDATE POINTER, 
Bases AEsoe> AcccRS BaRetS #3 BoAK x 
003476 sie ToGl ; ; FINISHED? 
T 4 : xIT 
HOVE $11, S5PCS. SE . si 
‘tel Tae 
CLRB RPDS 
BIT #811, ARPDS ; DONE? 
ERM+ER+CS+DS+DA ;SEEK INCOMPLETE 
RT SERROR EXIT 


Te: 


w 


SEIFAESSZASABATR 


DZRPHA 
780 
i 
i 
731 
792 
793 
734 
735 
3 
738 
739 

1 
804 
80S 
806 
807 
808 
809 


Monowoowd 
b= b+ > 2b b+ bh 
OWCWM-O 
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817 

818 O04 
767 
Li ae wens 
822 OO04044 tee, 
cei Oe pute? 
Gee Gites folate 
See 
se Biore ooo) 
BL BRIE bis 
Est Ooviee ety 
Gorse bu7ee 
ge OHI ousxer 
840 OD 46 oe 
gio Ooviey Dood 
844 004160 poneas 
S35 OONies OOIDIE 
ei tire 10108 
gs 904210 004767 
i4 16 
853 O04220 000207 
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LO2 


UNIQ: PNTM  UMES 
000464 ue PC THO 
000007 MP Bo #7 
BHI UNTO 
903384 V RO, UNIT 
1 MOV #1°RO 
003314 TST UNIT 
BEQ NS1 
3306 oo0004 MOV UNIT, DS1 
001406 JSR »RIL 
DS1:  .WORD 
003274 UNSi: MOV ATNB 
003266 003336 MOVE =: UNIT, aRPCS1 
100000 003316 BIT B15, JRPDS 
BEQ +4 
RTS PC 
ERM+DS+ER+CS 
UNS1+4 
SPACE: PNTM Sl 
003260 DEC TTG 
BNE SPACE 
RTS C 
000346 PARIN: JSR PC, TTIO 
BR +4 
RTS PC 
000240 CMP RO, #240 
BNE PRX 
003202 CMP WORK1,RS 
BHI PRX 
003224 INC TTG 
003220 00005 CMP TTG, #5 
BHI PRX 
477714 JSR PC, SPACE 
2 ADD #2) (SP) 
PRX: RTS 






Bt Whte 


: YES 
IT 

+B TERMINE ATTENTION BIT 

sO ROTATION 

“NUMBER OF ROTATES 

:T0 DETERMINE ATTENTION BIT 

TS PUT HERE 


SELECT UNIT 
:1S IT READY? 


IYES = EXIT 
;SELECTED UNIT READY NOT UP 
tCOOP UNTIL FIXED 


;PRINT NUMBER OF SPACES 
;IN TTG. THEN 





SOME NUMBERS 
S NOW THE GOOD RETURN 
ALLEL FOR THIS SEQUENCE 





MAN 


TIFY NEXT ENTRY 
, FOR GOOD RETURN 





Munwa—< 
x<ACM 
lam. sles) 
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003210 Re aRPOS : ;CLEAR ATTN BITS 
Hoon 
DEBUG+ ‘SEEK TO 
BIT w810, RPDS LAR SEEK UNDERWAY? 
ERrvERsDés¢ or UNDERWAY 
IT ATNB,ORPOS =; 
Q 6 
BIT #811, RPDS | 
prvensodtts Beyce STATUS ERROR 
BITB #23, 9RPDS1 SANY ERRORS? 
ERM+ER+CS+ DEVICE STATUS ERROR 
BR H *LOOP 
#1, IRPCS *RESET THE RP1I 
7s 


CLEAR ATTN 
ee UNITS 


;WATT FOR 
sATTENTION 10. SET 
:SEEK INCOMPLETE? 


tPeteu head 


Care 


WD YLINDER 
CYLR FOR CHECKING 
(R4)+, SECR FETCH SECTOR READ 
17, SER 

HE 

;1S CYL# 0K? 

$15 TRACK® OK 
CME 
SEC, SECR 4: SECTOR® OK? 
CMER soto ae 
te, (SP) e- bes ADDRESSES 


0K - EXI 
HEADER COMPARE ERROR 
;ERROR EXIT 


C 

SUBRMS 

22(SP),RO sFETCH PC OF SUBROUTINE CALL 

#4, ;PC-4=ADDRESS OF SUBROUTINE CALL 
Bx OO TPMT iPRINT ADDRESS 
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gousee 012767 990005 002674 ‘TTIO: Hoy 85,176 NPUT up To. S ocTaL DIGITS 
Bes fer Geers =m fey cy APRS EBALTER ro wo 
ah ieee foe ty | 
as ’ 
ai? Bouecs Bedoe> Boose? one Rb, Azer i BIG? 
ai§ ovees AesS9 cones? at a it SHALL? 
914 004564 101425 BLOS _ TTRX : YES t 
915 bb 005367 002632 DEC TTG 5 COUNT DIGIT : 
916 o004572 100422 BMI TTRX :TOO MANY? és 
917 74 ANDI  7,RO *NO = MASK IT 
918 604600 o00241 CLC SAND ‘* 
819 O04602 006167 oD2se6 ROL WORK1 : SHIFT 
$20 OO4606 006167 002562 ROL WORK 1 s WORK REGISTER 
921 OO04612 006167 002556 ROL WORK1 
922 004616 060067 002552 ADD RO,WORKL ADD NEW NUMBER 
923 000744 BR TTIL _ $GET NEXT ONE 
$24 004624 004767 o02346 TTIX: JSR PC, TTO 
004636 062716 oo0002 ADD #2,(SP)_ . ;SKIP RETURN 
004634 016700 002534 MOV WORK1, RO 
004640 TTRX: RTS PC 
928 OO4E42 005267 172712 RIN: INC TKS ;FETCH A CHARACTER 
929 O04646 105767 172706 TSTB 3s TKS :WAIT 
930 O046S2 100375 BPL ‘ *FO 
331 004654 116700 172702 MOVE § TKB,RO “READ IT INTO RO 






sAND EXIT 
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Geral -ASCII /SSTRIKE ANY TELETYPE KEY WHEN READY. 8a/ 
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040000 


100000 


000000 
oo00Ue 


001704 


DO3 


HRDER: ee aati 
Recs 


#815, aRPCS 
+4 
PC 


#814, 3RPCS 
HRN1 

ROTOG 
SP) 


RO 
ROTOG 
RRLUP 


HRN] 
a(SP) 
Wz, ( 


PC 
a(SP) 
#2, < 


ROTOG 
SP) 


RO 
ROTOG 
RLLUP 
PC 








5 TEST Mane ERROR BIT 
ROR NOT SET. C(SP) POINTS TO CAUSE . 


E 

TE BIT IN RPCS 

eer 

5 RECS OR NOT SET. C(SP) POINTS TO CAUSE 
T 


ite HARD ERROR BIT 
:OK IF CLEAR | 
OR SET HARD ERROR SIT 
SI NCLUS VE ERROR 
¢ SHI T 


YES- EXIT 
FETCH SHIFT COUNT 
:STEP RETURN VECTOR 


CLEAR LINK 
;SHIFT RO LEFT ONCE 
;FINISHED™ 


;NO_. 
sYES- EXIT 
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1067 16 
ie 005722 
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te 005734 v4 
ite boar 
1074 005750 767 
ie S076 091001 
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040000 
001340 


000150 
pra ee 


1 
100000 


172030 ERROR: Be 


GOGO: 


[ea] 
~-- 
4 


C= 
w 
az 


ERXIT: 


gear 


w 
_~ 
4 


171612 ERXITI: 
EHALTI: 


XX 
RT 


_ 





Py i a 


BETT ARG OFMTTS BREEVE surren os u» 
MESSAGE POINTER TO Ko 


: T MES 
;FETCH SAVED PC 
sFIND zo OF _ CALL 
sPUT POINTER IN R 

;PRINT PC 

sMESSAGE POINTER 

sPRINT “PS=" 

sFETCH SAVED STATUS 

: PRINT IT 


YES 
;RPER? 
YES 
;RPDS? 
3N 


;YES 
;RPDA & RPCA? 
NO 


a 
SUBROUTINE ERROR 
RPCS? 


Me 

sHEADER MESSAGE? 
sNO 

;YES 

sBOC}) FOR GOOD/BAD 
;SKIP IF=0 
;GO0D/BAD 

$ 1th) FOR DATA 

; IF=0 

RESTORE ACO-5 
‘BRING 

sCR & LF 

3SR p's 2sDEL ETE ERROR HALT 
;SKIP_IF 2= 


;ERROR HALT. CONTINUE 
;EXIT ERROR ROUTINE 
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Bees 


Psi coreocscsumneccsenere Roniaeens Geee EGe 
oe 


LERXT: 

LUPCHK: #812, SR 
#4, (SP) 
PC 


es naa ALWAYS 
E RETURN VECTOR OVER LOOP JUMP 


ny Nae deed 
Roary | 


RO 4 
FesPntoct SPRINT OCTAL NUMBE 


tats ee | 


ogegoge 


gavesey Bas 


<8 


BESRR POR SES ERE 


#CSMS, RO ;POINTER TO “STATUS” 
PC, TYPOUT ‘PRINT TEXT 

;FETCH C(RPCS) 
BC PNTOCT :PRINT OCTAL 

13 
;POINTER TO “DATA” 
; T TEST 
*FETCH C(DATA) _ 
sPRINT OCTAL NUMBER 
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a 


8 
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-ASCIT 
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-ASCIT 
-ASCIT 
-ASCITI 
-ASCIT 
-ASCTI 
-ASCII 
-ASCIT 


-ASCII 
-ASCIT 


«ASCII 











HO3 


4% CYLINDER TRACK SECTOR@/ 


4 @/ 
4 @ 
/89/ 


/&BERROR AT ADDRESS @/ 


/80LD: a/ 
/&NEW: a 
7&CALLED FROM SUBROUTINE AT @/ 


7BRPCS= a/ 
/BRPER= 3/ 
/BRPDS= / 
78CAR= @/ 

/ TAR= a/ 
/ SAR= @/ 
78G00D= a/ 


/BAD= a/ 
4 PS= ga/ 


/BDATA= a7 
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le 007196 . EVEN 


test CIP BLES SS: YER) HMAC ETS HEM 

1e40 O07iie O10eM6 MoV Re, (SP) - STACKED ABOVE 1 

543 Bootes BiBhde Nov RY =(8P} i" HB fe rp PC 

1243 007120 000115 (RS) RTS WOULD POP THE STACK-S0 JUMP OUT 

: + WORD 

fee 907122 90 RESTOS: T9y (0 t0¥E SF OVER WORD SAVED BY JSR 

1247 007125 01260 MOV (SP), RI ;ARE POPPED 

1248 007130 01 (SP)+, SIN LIFO 

1 132 Ol mov = (SP)+)R ; SEQUENCE 

1 134 Ol (SP )+,R4 ;RS_IS POPPED BY THE RTS AND 
ood205 RTS RS ;THE PC IS TAKEN FROM RS 


012702 o000le DECPNT: 14 sDIVISOR OF sho. PEINT DECIMAL PRINT 


FE ERE BOA oO bes Soe 


1 007136 
t 007140 

IS Girls GENE goon re: fy T= HEINTERS SPSPEOR SN Em 

i Barise Bas CREM: iE, Pe, 101 i i (RO) By BY (Re) WITH AOTAINDER IN R1 
ieee 7168 Bob/ap fet AO FRE MURR DEFLATED BELOW RADIX? 
i 007168 nihesd 177762 cane JSR PIC, DECREN ie DIVIDE NUNBE eR aby RADIX 

1 Bao tae haat 000060 ° DD rd * MAK 

1 007176 036767 040000 170364 TTO: BIT #814 SR IF SR1I4=1,DELETE TYPEOUT 

1 ie iterag 170354 MOV RO, TPB :PRINT CONTENTS OF RO 

1266 O072l2 105767 170346 TTOLP: TSTB TPS *DONE YET? 

1267 O07216 1 BPL :NO = KEEP LOOPING 

1268 Bos SEB 000015 MP #CR, RO WAS CHARACTER A CR! 

1576 007808 DODeHy Bee rot ite funn 1 PoBTY on RAIN PROGRAM 
1271 007230 012700 ooodle TTOLF: MOV #LF,RO LF 

1e7e 007234 000760 BR TTO EXECUTE PRINT 

1274 007236 010067 000116 IDIVR: MOV RO, DIVID VIDEND 

1275 007242 905000 CLR RO GL Eb "a TIENT AREA 

156 Bo7SuE Sebeot DIVLP Kbe ae Rl VI OR To, acc 

156 007250 020167 000104 CMP RI; DIVID fo BEND 

1279 007254 100002 BPL DVEND Un Pasors DIVIDEND - EXIT 
see ie OP SER rine wae une AIVLP HINGRENENT Aas Hee 

1282 007262 001003 DVEND: BNE DIVNL JUMP. TO T REMAINDER 

ish fares east i eae 5 rer curio 
1285 000207 RTS PC EXIT 

1286 007272 160167 o000be DIVNI: SUB R1,DIVID “FANCY FINAGLING TO 

1287 007 7 O000S6 ADD Re BIVID ; DETERMINE THe REMAINDER 

1288 0073 16701 o000S2 MOV DIVIO,R1 *REMAINDER TO RI 

1289 007306 000207 RTS PC sEXIT WITH QUOTIENT IN RO 
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b= Bs b+ bs Bb he Bh 2 bt bh a HK pe oh 


B 
ae 









Prt su i INTER FOR MESSAGE 
ne T i NATOR)? 


HE aH ERLE FLAG? 
HANGE DATA TO CRLF 
POINTER TO NEXT BYTE 


ip 
iE TCH _NEXT ACTE 
ByIT STACK TO REACH RETURN VECTOR 
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007476 RPM3: 176732 
RPM31: 176733 
RPB1: 1767 
RPBil: 1767 
: i 7 
1 1: 73 
le RPB3: 176740 
007514 RPB31: 176741 
007516 RPIV: .WORD 254 
B7ess I hil cons 





ReBYi. 
SUFBUFSTNBUF +2300 


;THAT’S ALL FOLKS! 
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TNS 
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Fie 2 g 
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B10 = 002000 4068 860 
Fig = b1he9 me Bet 792 est 
1 a na 
B14 = 040000 4108 1006 1014 1034 1263 
Bis z Apnea 411s ate 6393 655 69s 726 832 1009 1974 
= # 41 1 
B3 = 000010 3998 417 1053 
84 = 000020 4008 418 1050 
BS = 000040 401s 419 10589 
i=} = 000100 4028 420 
87 = 000200 403% 519 5S! 639 655 £98 726 
Bes poTaeD = 
= 
ARET Obes} 1 1 11868 
Giver * 9 ee, Ws te 
CHKAD OO4346 661 878% 
003502 b 751% 
CLRS1 9O035Sle 7538 755 
00 892 8394 8978 
CR = 000015 373% 1072 1268 1297 
cs s 4188 509 14 ags sys SS4 &4e os 701 729 794 835 862 
868 872 1008 10le 1016 ; 
CSMS 006771 1101 le06%8 ‘ 
CSTYPE O06062 10S2 11018 
CYL 007402 S36% Bae S74 575 * 608% 627 GEox 690 709% 710 716% 717 746% 
747 Ish] 1161 13168 
CYLA 007416 Sous 635 650 13228 
CYLR 007410 880% sisted 883% esse Ee5* 1170 13198 
CYMS 007021 llel le1Se 
DA s 4198 503 oS cey be 653 701 729 734 
007075 1106 le3e8 
DATA 7356 1108 13068 eg: 
DATYPE 006104 1070 11068 
DD = 000002 4158 
DEBUG  007S22 857% g58* 13568 1357 
DECPNT 007140 12538 
DECREM 0071Se cS leS6% 1260 
DIVID 907360 1274* 1278 12e86% 1287% 1288 13078 
DIVLP O0724%6 12778 §@61281 
DIVN1 007272 1282 12868 
DS = apse 50S cys csy B42 
OSMS 00701 1116 l2les 
DSTYPE OQO061 1058 11168 
DS1 0040 Be7# 829% 
YEND 0072 1279 1le8ee 
EHALT1 005760 1076% 
= 00001 417% 5093 
£68 872 
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